home *** CD-ROM | disk | FTP | other *** search
- on startMovie
- set HC to the number of cast "handCursor"
- cursor([HC, HC + 1])
- end
-
- on save module
- global gHardDiskPath, gBackPack, gTools
- set prefFile to FileIO(mnew, "read", gHardDiskPath & "OTGPref")
- if not objectp(prefFile) then
- alert("Error reading file " & gHardDiskPath & "OTGPref")
- else
- set temp to prefFile(mReadFile)
- prefFile(mdispose)
- set lineNum to 1
- repeat while (lineNum <= the number of lines in temp) and not (line lineNum of temp starts "## adventure game:")
- set lineNum to lineNum + 1
- end repeat
- if lineNum <= the number of lines in temp then
- put "## adventure game: " into line lineNum of temp
- put module after line lineNum of temp
- put "; " & string(gBackPack) after line lineNum of temp
- put "; " & string(gTools) after line lineNum of temp
- end if
- set prefFile to FileIO(mnew, "write", gHardDiskPath & "OTGPref")
- if not objectp(prefFile) then
- alert("Error writing to file " & gHardDiskPath & "OTGPref")
- else
- prefFile(mWriteString, temp)
- prefFile(mdispose)
- end if
- end if
- go(1, gHardDiskPath & "OSLOMain")
- end
-
- on stopMovie
- if the machineType = 256 then
- closeXLib("@::fileio.dll")
- closeXLib("@::scikids.dll")
- end if
- end
-